Option Explicit
Sub F_Sample054()
    Dim myCnc1   As String
    Dim myCnc2   As String
    Dim myCnc3   As String
    Dim myCmd    As String
    Worksheets.Add						'u@sW
    myCnc1 = "ODBC;"
    myCnc2 = "Driver={Microsoft ODBC for Oracle};"
    myCnc3 = "UID=scot;PWD=tiger;SERVER=ServerName;"	'wnsA
    'HSQLӫwnŪJ
    myCmd = "SELECT * FROM tdH"
    With ActiveSheet.QueryTables.Add( _
        Connection:=myCnc1 & myCnc2 & myCnc3, _
        Destination:=Range("A1"))
        .CommandText = myCmd
        .Refresh
    End With
End Sub
